home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / iconalb / colbarmo.bas < prev    next >
Encoding:
BASIC Source File  |  1999-10-17  |  669 b   |  27 lines
  1. Attribute VB_Name = "ColBarModule"
  2. Option Explicit
  3. Public Inp1, DefInp As String
  4. Public xx%, Idx%, IconIdx%
  5. Public Temp$, IBpath$, Inp$, Mess$
  6. Public Message$
  7. Public r2, r3, g2, g3, b2, b3 As Integer
  8.  
  9. Public Sub ColBar(Obj As Object, St%, H%, R%, G%, B%, RE%, GE%, BE%)
  10. Dim H2%, H3%, IvR%, IvG%, IvB%
  11. Obj.AutoRedraw = True
  12. Obj.ScaleMode = 3 'pixel
  13. H3 = Int(H / 2)
  14. IvR = Int(RE - R) / H3
  15. IvG = Int(GE - G) / H3
  16. IvB = Int(BE - B) / H3
  17. Do While H >= H3
  18. Obj.Line (0, St + H2)-(Obj.ScaleWidth, St + H2), RGB(R, G, B)
  19. Obj.Line (0, St + H)-(Obj.ScaleWidth, St + H), RGB(R, G, B)
  20. H = H - 1
  21. H2 = H2 + 1
  22. R = R + IvR
  23. G = G + IvG
  24. B = B + IvB
  25. Loop
  26. End Sub
  27.